From a640cbc84fdc672796c7c9ad754f2d844cd296f7 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 14 Feb 2003 11:09:03 +0000 Subject: [PATCH] (utf-8-ccl-encode): Fix use of character constants. --- leim/quail/uni-input.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el index b89b9a613e6..b8907578be0 100644 --- a/leim/quail/uni-input.el +++ b/leim/quail/uni-input.el @@ -50,7 +50,7 @@ (write ((r0 & ?\x3F) | ?\x80))) (if (r0 < #x200000) ((write ((r0 >> 18) | ?\xF0)) - (write (((r0 >> 12) & ?\3F) | ?\x80)) + (write (((r0 >> 12) & ?\x3F) | ?\x80)) (write (((r0 >> 6) & ?\x3F) | ?\x80)) (write ((r0 & ?\x3F) | ?\x80))) (if (r0 < #x4000000) @@ -58,13 +58,13 @@ (write (((r0 >> 18) & ?\x3F) | ?\x80)) (write (((r0 >> 12) & ?\x3F) | ?\x80)) (write (((r0 >> 6) & ?\x3F) | ?\x80)) - (write ((r0 & ?\x3f) | ?\x80))) + (write ((r0 & ?\x3F) | ?\x80))) ((write ((r0 >> 30) | ?\xFC)) (write (((r0 >> 24) & ?\x3F) | ?\x80)) (write (((r0 >> 18) & ?\x3F) | ?\x80)) (write (((r0 >> 12) & ?\x3F) | ?\x80)) (write (((r0 >> 6) & ?\x3F) | ?\x80)) - (write ((r0 & ?\x3f) | ?\x80)))))))))) + (write ((r0 & ?\x3F) | ?\x80)))))))))) (defun ucs-input-method (key) (if (or buffer-read-only -- 2.30.2